What is a Analysis?

Analysis is the process of breaking a complex topic or substance into smaller parts in order to gain a better understanding of it. The technique has been applied in the study of mathematics and logic since before Aristotle, though analysis as a formal concept is a relatively recent development.(Wikipedia)

## Warning in connection_release(conn@ptr): Already disconnected

The Whole Shootin Match: Jan. 23,2020 - August 1, 2020

Total Daily Cases and Deaths

Total Cumulative Cases

Weekly Totals for Cases and Deaths

## `summarise()` ungrouping output (override with `.groups` argument)
## `summarise()` ungrouping output (override with `.groups` argument)
## `summarise()` ungrouping output (override with `.groups` argument)
plot_4 <- ggplot() + geom_col(data=JHU_Weekly,aes(x=Weekly,y=DC_Sum)) +
  labs(title="John Hopkins Weekly US Cases")
  
plot_5 <- ggplot() + geom_col(data=JHU_Weekly,aes(x=Weekly,y=DD_Sum)) +
  labs(title="John Hopkins Weekly US Deaths")      
## $title
## [1] "John Hopkins Weekly Cases"
## 
## attr(,"class")
## [1] "labels"
## $title
## [1] "NY Times Weekly Cases"
## 
## attr(,"class")
## [1] "labels"
## Warning: Removed 1 rows containing missing values (position_stack).
## Warning: Removed 1 rows containing missing values (position_stack).

First Spike: In Daily U.S. Cases and Deaths April 1- 30 2020

Current Spike in U.S. Daily Cases and Deaths: May 1, 2020 - Present

AA<- USA %>% filter(Reported >="2020-05-01" )
BA<- JHU %>% filter(date >="2020-05-01" )
CA <- NYT %>% filter(date >="2020-05-01")
AA %>% ggplot() + geom_line(aes(x=Reported,y=Cases,col="USA")) +
    geom_line(data=BA,aes(x=date,y=DC,col="John Hopkins")) +
    geom_line(data=CA,aes(x=date,y=DC,col="NY Times")) +
  labs(title="Current  Spike in Cases: May  1, 2020 - Present")

AA %>% ggplot() + geom_line(aes(x=Reported,y=Deaths,col="USA")) +
    geom_line(data=B,aes(x=date,y=DD,col="John Hopkins")) +
    geom_line(data=C,aes(x=date,y=DD,col="NY Times")) +
  labs(title="Current Spike in Deaths: May  1, 2020 - Present")